home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed2.d64 / alpha 1 a (.txt) next >
Commodore BASIC  |  2007-02-04  |  8KB  |  260 lines
  1. 1 GOTO910
  2. 2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
  3. 3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
  4. 4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
  5. 5 [153]"hhhhhhh`  
  6. 6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
  7. 7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
  8. 35 IFUW=0THENSYSUU,15
  9. 40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
  10. 45 GETUI$:IFUI$=""THEN45
  11. 50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO70
  12. 55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
  13. 60 IFUR=ULTHEN45
  14. 65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
  15. 70 IFUR$=UX$THENPRINT"[157] ";:GOTO145
  16. 75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
  17. 80 UR$=LEFT$(UR$,UI):PRINT:RETURN
  18. 95 IFLEN(US$)=0THEN110
  19. 100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
  20. 105 RETURN
  21. 110 IFUA=46THENRETURN
  22. 115 IFUA=32ANDUR<>0THENRETURN
  23. 120 IFUA>47ANDUA<58THENRETURN
  24. 125 IFUA>64ANDUA<91THENRETURN
  25. 130 IFUA<193ORUA>218THENUI$="":RETURN
  26. 135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
  27. 140 RETURN
  28. 145 GOSUB170:POKE251,0:POKE252,US/256:POKE253,0:POKE254,UF:SYSUV
  29. 150 UZ=1:UV%=PEEK(UT):GOTO300
  30. 155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:IFUW=0THENPOKEUY,6:POKEUX,14
  31. 160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:IFUW=0THENSYSUU,15
  32. 165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
  33. 170 U1%=PEEK(U1):U2%=PEEK(U2):U3%=PEEK(U3):U4%=PEEK(U4)
  34. 175 UJ$=US$:UK$=UG$:UL$=UT$:UJ=UP:UK=UL:RETURN
  35. 300 REM DERIVED FROM COMMODORE ONTARIO      EDUCATIONAL SOFTWARE PROJECT 1983
  36. 310 REM PROJECT DIRECTOR: FRANK WINTER
  37. 320 REM PROGRAM MAME: ALPHA
  38. 330 REM WRITTEN BY JAN SAWCZAK
  39. 340 REM REVISED BY DOUG TURNER
  40. 350 REM UPDATED BY BILL CUMBERLAND 90
  41. 400 PRINT"[147]":POKEUT,UL%:POKEUY,13:POKEUX,13:POKE646,0
  42. 405 PRINT"            [201][206][211][212][210][213][195][212][201][207][206][211] [146]"
  43. 407 PRINT"   * [212]O BE READ TO THE STUDENT.
  44. 410 [153]" RIGHT$N THIS PROGRAM YOU WILL BE ASKED TO"
  45. 415 [153]" ALPHABETIZE A LIST OF WORDS."
  46. 420 [153]" (null)HESE WORDS WILL APPEAR IN A MIXED      UP ORDER."
  47. 425 [153]" (null)OUR JOB WILL BE TO ARRANGE THEM IN"
  48. 430 [153]" ALPHABETICAL ORDER."
  49. 435 [153]" (null)HEN THE COMPUTER ASKS YOU, TYPE IN"
  50. 440 [153]" THE LETTER BESIDE THE WORD THAT YOU"
  51. 445 [153]" THINK SHOULD GO FIRST, SECOND, AND"
  52. 450 [153]" SO ON..."
  53. 455 [141]820
  54. 460 [153]"  LOAD   ASCOR EXAMPLE, IN THE LIST
  55. 461 PRINT"          A:  YES
  56. 462 [153]"          B:  PAN
  57. 463 PRINT"          C:  ATE
  58. 464 [153]"          D:  SIP
  59. 465 PRINT"   [217]OUR ANSWER WOULD BE":FORW=1TO500:NEXT
  60. 466 PRINT"          NUMBER 1:  ";:PRINT"C"
  61. 467 PRINT"          NUMBER 2:  ";:PRINT"B"
  62. 468 PRINT"          NUMBER 3:  ";:PRINT"D"
  63. 469 PRINT"          NUMBER 4:  ";:PRINT"A"
  64. 470 PRINT"   [193]T THE END THE COMPUTER WILL TELL"
  65. 475 PRINT"   YOU HOW WELL YOU DID."
  66. 480 GOSUB820
  67. 485 PRINT "[147] [201]F YOU MAKE A MISTAKE WHILE PUTTING"
  68. 490 PRINT " THE WORDS IN ALPHABETICAL ORDER, YOU"
  69. 495 PRINT " CAN DELETE IT OR TYPE IN A LETTER"
  70. 500 PRINT " FARTHER ON IN THE ALPHABET THAN ANY OF"
  71. 505 PRINT " THOSE SHOWN ON THE SCREEN.  [212]HEN YOU"
  72. 510 PRINT " CAN START THE WHOLE LIST OVER AGAIN."
  73. 520 PRINT" [201]F YOU MAKE A MISTAKE, YOU
  74. 525 [153]" MAY HAVE THE WHOLE LIST REPEATED
  75. 530 PRINT" AFRESH BY TYPING IN ANY LETTER
  76. 535 [153]" BEYOND THOSE LISTED ON THE SCREEN.
  77. 540 GOSUB820
  78. 545 PRINT"[147]  [196]O YOU WISH TO REPEAT THE               INSTRUCTIONS?
  79. 550 [153]"  (null)RESS  Y WAIT TO REPEAT INSTRUCTIONS.
  80. 555 PRINT"  [208]RESS  N [146] TO START GAME.
  81. 560 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167]560
  82. 565 [139]R$[178]"Y"[167]400
  83. 570 [153]"LOAD  AND AWAY WE GO.........":[129] T[178]1[164]1500:[130]:[141]760:[141]760
  84. 700 [143] <YES>
  85. 705 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  86. 710 [151]54296,15:[151]54277,42:[151]54278,250
  87. 715 [151]54276,23:[151]54273,23:[151]54272,191
  88. 720 [129]TN[178]1[164]100:[130]:[151]54276,32:[129]TN[178]1[164]200:[130]
  89. 725 [151]54296,0:[142]
  90. 730 [143] <NO>
  91. 735 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  92. 740 [151]54296,15:[151]54277,18:[151]54278,242
  93. 745 [151]54276,33:[151]54273,4:[151]54272,48
  94. 750 [129]TN[178]1[164]300:[130]:[151]54276,32:[129]TN[178]1[164]400:[130]
  95. 755 [151]54296,0:[142]
  96. 760 [143] <BLIP>
  97. 765 SS[178]54272:[129]EE[178]SS[164]SS[170]28:[151]EE,0:[130]
  98. 770 [151]54296,7:[151]54277,42:[151]54278,250
  99. 775 [151]54276,23:[151]54273,23:[151]54272,191
  100. 780 [129]TN[178]1[164]30:[130]:[151]54276,32:[129]TN[178]1[164]50:[130]
  101. 785 [151]54296,0:[142]
  102. 790 [129]TN[178]1[164]500:[130]:[142]
  103. 791 [129]TN[178]1[164]1000:[130]:[142]
  104. 792 [129]TN[178]1[164]2000:[130]:[142]
  105. 793 [129]TN[178]1[164]3000:[130]:[142]
  106. 795 [129]TN[178]1[164]3000:[130]:[142]
  107. 800 [153]"LOAD";:[151]UT,UU%:[151]UY,1:[151]UX,1:[151]646,5
  108. 801 [153]"      A TPUG EDUCATIONAL PROGRAM
  109. 802 PRINT"           FOR C64 COMPUTERS
  110. 803 [153]"               GRADES 2-3
  111. 804 GOSUB791
  112. 805 PRINT"                                        [146]";
  113. 806 PRINT"                                        [146]";
  114. 807 PRINT"                ALPHA 1 A               [146]";
  115. 808 PRINT"                                        [146]";
  116. 809 PRINT"                                        [146]"
  117. 810 GOSUB792:GOSUB760
  118. 811 PRINT"           INSTRUCTIONS?  Y/N
  119. 812 [161]R$:[139]R$[179][177]"Y"[175]R$[179][177]"N"[167]812
  120. 813 [139]R$[178]"Y"[167] [141] 400
  121. 814 [137]1000
  122. 820 [141]791:[141]760
  123. 823 [151]UN,0:[153][200](UD$,24);" (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE WAIT"
  124. 825 [161]UI$:[139]UI$[179][177]" "[167]825
  125. 830 [142]
  126. 835 [141]791:[141]760
  127. 837 [151]UN,0:[153][200](UD$,24);"SYS (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE WAITLIST"
  128. 840 [161]UI$:[139]UI$[179][177]" "[167]840
  129. 845 [142]
  130. 850 UP[178]UP[170]1:[153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18)
  131. 855 [153]" --------------------------------------"
  132. 860 [139]UH[178]0[167][153][200](UD$,24);[200](UP$,6);"ATNNSWER, THEN PRESS (null)VAL(null)(null)(null)(null)WAIT"
  133. 865 UH[178]0:[153]"":[142]
  134. 875 [153][200](UD$,24);"           ONE MOMENT PLEASE...     ":[142]
  135. 900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
  136. 902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
  137. 904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
  138. 905 UD$[178]"":UP$[178]"                                      "
  139. 906 [134]A$(60),B$(60),C$(60),B(60)
  140. 909 [142]
  141. 910 [141]900:[153]"LOAD":[153]"CLOSE"
  142. 920 [137] 800
  143. 1000 [139]UZ[178]1[167][158]UP%:[158]UP%:UZ[178]0
  144. 1005 [153]"LOAD"UC$;:[140]:[151]UY,6:[151]UX,6
  145. 1010 [153]"LOAD":[151]UT,UL%
  146. 1015 [153]"   LEFT$ELLO!":[141]791:[141]760
  147. 1020 [153] "   (null)HAT IS YOUR NAME? ";:UL[178]8:US$[178]"":[141]35:N$[178]UR$:[141]3000
  148. 1025 [141]791
  149. 1030 [153]"LOAD   (null)HERE ARE 9 WORDS TO ALPHABETIZE":[141]790
  150. 1035 [153]"   (null)LEASE WAIT 15 SECONDS WHILE
  151. 1040 PRINT"   THE COMPUTER SETS UP YOUR GAME.
  152. 1045 [141]793
  153. 1500 Z[178]9
  154. 1505 [153]"LOAD"
  155. 1510 X[178]1
  156. 1515 [129]I[178]1[164]58
  157. 1520 [135]A$(I):[130]
  158. 1525 [140]
  159. 1530 A[178][181]([187](TI)[172]59)
  160. 1540 [139]A[179]1[167]1530
  161. 1550 [129]J[178]1[164]Z:[143] Z IS HOW MANY WORDS
  162. 1560 [139]B(J)[178]A[167]1530
  163. 1570 [130]
  164. 1580 B$(X)[178]A$(A):C$(X)[178]A$(A):B(X)[178]A
  165. 1590 X[178]X[170]1
  166. 1600 [139]X[179][178]Z[167]1530
  167. 1610 [153]""
  168. 1617 J$[178]"ABCDEFGHI"
  169. 1618 UH[178]1:UP[178]0:[153]""
  170. 1620 [129]I[178]1[164]Z
  171. 1630 [153][163]13);[202](J$,I,1);[163]17);B$(I):[130]
  172. 1640 B[178]1:C[178]1:[129]I[178]1[164]10[172]Z
  173. 1650 Q[178]B
  174. 1660 [139][195](C$(C))[179]B[167]B[178][195](C$(C))
  175. 1670 [139][195](C$(C[170]1))[179]B[167]B[178][195](C$(C[170]1))
  176. 1680 [139][198]([202](C$(C),1,B))[177][198]([202](C$(C[170]1),1,B))[167][141]2110
  177. 1690 B[178]Q
  178. 1700 [139]C[170]2[177]Z[167]C[178]0
  179. 1710 C[178]C[170]1:[130]
  180. 1720 [139]B[177]5[167]1740
  181. 1730 B[178]B[170]1:C[178]1
  182. 1750 [141]2130
  183. 1840 R[178]0:TT[178]0
  184. 1845 [153]""
  185. 1846 [129]I[178]1[164]Z:[153]"";:[130]I
  186. 1850 [129] I[178]1[164]Z
  187. 1855 [141]760
  188. 1860 US$[178]"ABCDEFGHIJKLMNOPQRSTUVWXYZ":UL[178]1:[153]"  (null)UMBER";I;"CMD:  ";:[141]35
  189. 1861 E(I)[178][198](UR$)[171]64
  190. 1865 [139]E(I)[178]26[167]E(I)[178]8:[137]1880
  191. 1870 [139]E(I)[177]Z[167][153]"LOAD":[137]1620
  192. 1880 D$(I)[178]B$(E(I))
  193. 1890 [139]D$(I)[178]C$(I)[167]R[178]R[170]1
  194. 1900 TT[178]TT[170]1
  195. 1910 [130]I
  196. 1920 J$[178]"ABCDEFGHICMDCMD
  197. 1924 REM YOUR LIST/MY LIST
  198. 1925 PRINT "[147]"
  199. 1930 PRINT TAB(13-((LEN(N$)+7)/2));N$;"'S LIST"
  200. 1940 PRINT:PRINT
  201. 1950 FORI=1TOZ
  202. 1960 PRINTTAB(9);D$(I);TAB(24);C$(I):NEXT
  203. 1965 D$(1)="":C$(1)="":PRINTTAB(1),D$(1),C$(1);:PRINT"[157]";
  204. 1970 FORW=1TOZ:PRINT"[145]";:NEXT:PRINT"[145][145][145][205]Y LIST"
  205. 1975 GOSUB835:
  206. 1980 PRINT"[147]"
  207. 1985 PRINT"    [217]OU'VE GOTTEN";R;"RIGHT OUT OF";TT
  208. 1990 PRINT"    [212]HAT'S ";INT((R/TT)*100);"% !"
  209. 1995 IFR=TTTHEN GOSUB700:GOSUB2210
  210. 2000 GOSUB835
  211. 2010 PRINT"[147][215]OULD YOU LIKE ANOTHER LIST ? ";:US$="YNZ":UL=1
  212. 2020 GOSUB35:L$=UR$:IFL$="N"THEN2170
  213. 2030 PRINT"[147]  [208]LEASE WAIT 15 SECONDS FOR SETUP.":FORT=1TO2500:NEXT
  214. 2035 GOTO1500
  215. 2040 DATA"ANT","ABLE","AND","BUN","BIN","BAD","BELL"
  216. 2050 DATA"BALL","BAG","BIG","BOG","CAR","CAN","CAT"
  217. 2060 DATA"DID","DO","DONE","DROP","EAT","EAR","EGG","FAT","FAN","FALL"
  218. 2070 DATA"EATS","FALL","FELL","FLAT","FUN","GOT","GUN","GAVE"
  219. 2080 DATA"GATE","HOW","HOME","HAS","HAD","LEFT","MOON","MET","MESS"
  220. 2090 DATA"POT","PAN","PIN","RUN","RAT","SOON","SUN","SAT"
  221. 2100 DATA"TAP","TOP","TOO","WHO","WHEN","ONE","YES","YET","ZOO"
  222. 2110 X$=C$(C):C$(C)=C$(C+1):C$(C+1)=X$
  223. 2120 RETURN
  224. 2130 FORJ=1TO2:FORF=1TOZ-1
  225. 2140 IFASC(C$(F))=ASC(C$(F+1))THENGOSUB2310
  226. 2150 NEXTF:NEXTJ
  227. 2160 RETURN
  228. 2170 PRINT"[147]   [201] HOPE THAT YOU ENJOYED YOURSELF.":GOSUB792
  229. 2175 PRINT"           [199]OODBYE, ";N$;"!":GOSUB792:GOSUB760
  230. 2180 RESTORE:POKE631,13:POKE198,2
  231. 2182 PRINT"[147] [210]ETURNING TO THE [205][197][206][213]
  232. 2184 [147]"MENU",8
  233. 2186 [138]
  234. 2188 [128]
  235. 2200 [143]
  236. 2210 A[178][181]([187](TI)[172]7)
  237. 2220 [139]A[179]1[167]2210
  238. 2230 M$(1)[178]"VALXCELLENT SCORE!!"
  239. 2240 M$(2)[178]"(null)UPER SCORE"
  240. 2250 M$(3)[178]"(null)OU'RE DOING GREAT"
  241. 2260 M$(4)[178]"STR$ONE LIKE A GENIUS"
  242. 2270 M$(5)[178]"(null)REMENDOUS"
  243. 2280 M$(6)[178]"(null)NBELIEVABLE !!!"
  244. 2290 [153] ""
  245. 2295 [153] [163]20[171]([195](M$(A))[170]1[170][195](N$))[173]2);
  246. 2298 [153] M$(A);" ";N$
  247. 2300 [142]
  248. 2310 G$(F)[178]C$(F):G$(F[170]1)[178]C$(F[170]1)
  249. 2320 X[178]2
  250. 2330 [139][198]([202](C$(F),X,1))[179][198]([202](C$(F[170]1),X,1))[167]2400
  251. 2340 [139][198]([202](C$(F[170]1),X,1))[179][198]([202](C$(F),X,1))[167]2390
  252. 2350 X[178]X[170]1
  253. 2360 [139]X[177][195](C$(F))[167]2400
  254. 2370 [139]X[177][195](C$(F[170]1))[167]2400
  255. 2380 [137]2330
  256. 2390 C$(F[170]1)[178]G$(F):C$(F)[178]G$(F[170]1)
  257. 2400 [142]
  258. 3000 N$[178][199](([198]([200](N$,1))[175]127)[170]128)[170][202](N$,2):[142]
  259. 3100 [143] WHC 90:06:26
  260.